home *** CD-ROM | disk | FTP | other *** search
/ Network CD 2 / Network CD - Volume 2.iso / programs / utilities / amisox3.3 / dist / tests.com < prev    next >
Encoding:
Text File  |  1995-05-05  |  1.2 KB  |  42 lines
  1. $   FVER = 'F$VERIFY(0)'
  2. $ !
  3. $ ! test files
  4. $ ! SOX Test script.  This should run without access violating or printing
  5. $ ! any messages.
  6. $ !
  7. $ ! VMS translation of tests.shr
  8. $ !
  9. $ ! Modification History
  10. $ ! 14 Dec 1992, K. S. Kubo, Created
  11. $ !
  12. $ ! NOTES:
  13. $ !    Does not support the voc test w/o checksum and rate byte.
  14. $ !
  15. $   FILE     = "monkey"
  16. $   PROC_PATH    = F$Environment("PROCEDURE")
  17. $   SOX        = "$ " + F$Parse(PROC_PATH,,,"DEVICE") + -
  18.     F$Parse(PROC_PATH,,,"DIRECTORY") + "SOX"
  19. $ !
  20. $ ! verbose option -- uncomment the following line
  21. $ ! SOX        = SOX + " ""-V"""
  22. $ !
  23. $   ON ERROR THEN GOTO COM_EXIT
  24. $   ON SEVERE THEN GOTO COM_EXIT
  25. $   ON WARNING THEN CONTINUE
  26. $   DELETE/NOLOG ub.raw;*, sb.raw;*, ub2.raw;*, ub2.voc;*, ub.au;*, ub2.sf;*
  27. $   SOX 'FILE'.voc ub.raw
  28. $   SOX -t raw -r 8196 -u -b -c 1 ub.raw -r 8196 -s -b sb.raw
  29. $   SOX -t raw -r 8196 -s -b -c 1 sb.raw -r 8196 -u -b ub2.raw
  30. $   SOX -r 8196 -u -b -c 1 ub2.raw -r 8196 ub2.voc 
  31. $   DIFF/MODE=HEX ub.raw ub2.raw
  32. $   DELETE/NOLOG ub.raw;*, sb.raw;*, ub2.raw;*, ub2.voc;*
  33. $   SOX 'FILE'.au -u -r 8192 -u -b ub.raw
  34. $   SOX -r 8192 -u -b ub.raw -U -b ub.au 
  35. $   SOX ub.au -u ub2.raw 
  36. $   SOX ub.au -w ub2.sf
  37. $   DELETE/NOLOG ub.raw;*, ub.au;*, ub2.raw;*, ub2.sf;*
  38. $ !
  39. $ COM_EXIT:
  40. $   FVER = F$VERIFY('FVER')
  41. $   EXIT
  42.